home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / asenda1a / form1.frm next >
Text File  |  1999-07-01  |  3KB  |  74 lines
  1. VERSION 5.00
  2. Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.1#0"; "COMDLG32.OCX"
  3. Begin VB.Form Form1 
  4.    BorderStyle     =   4  'Fixed ToolWindow
  5.    Caption         =   "ASCENDANCY CHEATER"
  6.    ClientHeight    =   3195
  7.    ClientLeft      =   45
  8.    ClientTop       =   285
  9.    ClientWidth     =   4680
  10.    LinkTopic       =   "Form1"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   3195
  14.    ScaleWidth      =   4680
  15.    ShowInTaskbar   =   0   'False
  16.    StartUpPosition =   3  'Windows Default
  17.    Begin MSComDlg.CommonDialog CommonDialog1 
  18.       Left            =   2100
  19.       Top             =   1350
  20.       _ExtentX        =   847
  21.       _ExtentY        =   847
  22.       _Version        =   327680
  23.    End
  24.    Begin VB.CommandButton Command2 
  25.       Caption         =   "Click to print cheats."
  26.       Height          =   255
  27.       Left            =   2370
  28.       TabIndex        =   2
  29.       Top             =   0
  30.       Width           =   2265
  31.    End
  32.    Begin VB.TextBox Text1 
  33.       Height          =   2895
  34.       Left            =   30
  35.       Locked          =   -1  'True
  36.       MultiLine       =   -1  'True
  37.       ScrollBars      =   2  'Vertical
  38.       TabIndex        =   1
  39.       Top             =   270
  40.       Width           =   4605
  41.    End
  42.    Begin VB.CommandButton Command1 
  43.       Caption         =   "Click to make cheat file."
  44.       Height          =   255
  45.       Left            =   0
  46.       TabIndex        =   0
  47.       Top             =   0
  48.       Width           =   2355
  49.    End
  50. End
  51. Attribute VB_Name = "Form1"
  52. Attribute VB_GlobalNameSpace = False
  53. Attribute VB_Creatable = False
  54. Attribute VB_PredeclaredId = True
  55. Attribute VB_Exposed = False
  56. Private Sub Command1_Click()
  57. Form2.Show
  58. End Sub
  59.  
  60. Private Sub Command2_Click()
  61. On Error GoTo errhands
  62. Form3.Label1.Caption = Text1.Text
  63. CommonDialog1.ShowPrinter
  64. Printer.Copies = CommonDialog1.Copies
  65. Form3.PrintForm
  66. 'Form3.Show
  67. errhands:
  68. Exit Sub
  69. End Sub
  70.  
  71. Private Sub Form_Load()
  72. Text1.Text = "Here are the Ascendancy cheats." & vbCrLf & vbCrLf & "STAR SCREEN" & vbCrLf & "[1-7] - Veiw player 1 thru 7." & vbCrLf & "[8] - Star lanes Revealed" & vbCrLf & "[ALT + E] - Steal Technology" & vbCrLf & "[C] - Show Stats of Galaxy" & vbCrLf & "[L] - shows all starlanes" & vbCrLf & "[S] - Shows all stars" & vbCrLf & vbCrLf & "PLANET MAP SCREEN" & vbCrLf & "[I] - Completes current project" & vbCrLf & "[O] - Max out planet Population" & vbCrLf & "[R] - Bring alien colony under your control***" & vbCrLf & "[SHIFT + M] - adds 1 to max population" & vbCrLf & "[T] - Create Colony on Planet***" & vbCrLf & vbCrLf & "REASERCH SCREEN" & vbCrLf & "[E] - Finish Current Project" & vbCrLf & "[D] - Gain all Reasearch" & vbCrLf & vbCrLf & "*** MAY FREEZE GAME!"
  73. End Sub
  74.